home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / share / autoconf / Autom4te / Configure_ac.pm < prev    next >
Text File  |  2006-04-25  |  3KB  |  104 lines
  1. # Copyright (C) 2003  Free Software Foundation, Inc.
  2.  
  3. # This program is free software; you can redistribute it and/or modify
  4. # it under the terms of the GNU General Public License as published by
  5. # the Free Software Foundation; either version 2, or (at your option)
  6. # any later version.
  7.  
  8. # This program is distributed in the hope that it will be useful,
  9. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11. # GNU General Public License for more details.
  12.  
  13. # You should have received a copy of the GNU General Public License
  14. # along with this program; if not, write to the Free Software
  15. # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  16. # 02111-1307, USA.
  17.  
  18. package Autom4te::Configure_ac;
  19.  
  20. use strict;
  21. use Exporter;
  22. use Autom4te::Channels;
  23. use Autom4te::ChannelDefs;
  24.  
  25. use vars qw (@ISA @EXPORT);
  26.  
  27. @ISA = qw (Exporter);
  28. @EXPORT = qw (&find_configure_ac &require_configure_ac);
  29.  
  30. =head1 NAME
  31.  
  32. Autom4te::Configure_ac - Locate configure.ac or configure.in.
  33.  
  34. =head1 SYNOPSIS
  35.  
  36.   use Autom4te::Configure_ac;
  37.  
  38.   # Try to locate configure.in or configure.ac in the current
  39.   # directory.  It may be absent.  Complain if both files exist.
  40.   my $filename = find_configure_ac;
  41.  
  42.   # Likewise, but bomb out if the file does not exist.
  43.   my $filename = require_configure_ac;
  44.  
  45.   # Likewise, but in $dir.
  46.   my $filename = find_configure_ac ($dir);
  47.   my $filename = require_configure_ac ($dir);
  48.  
  49. =cut
  50.  
  51. sub find_configure_ac (;@)
  52. {
  53.   my ($directory) = @_;
  54.   $directory ||= '.';
  55.   my $configure_ac =
  56.     File::Spec->canonpath (File::Spec->catfile ($directory, 'configure.ac'));
  57.   my $configure_in =
  58.     File::Spec->canonpath (File::Spec->catfile ($directory, 'configure.in'));
  59.  
  60.   if (-f $configure_ac)
  61.     {
  62.       if (-f $configure_in)
  63.     {
  64.       msg ('unsupported',
  65.            "`$configure_ac' and `$configure_in' both present.\n"
  66.            . "proceeding with `$configure_ac'.");
  67.     }
  68.       return $configure_ac
  69.     }
  70.   elsif (-f 'configure.in')
  71.     {
  72.       return $configure_in;
  73.     }
  74.   return $configure_ac;
  75. }
  76.  
  77.  
  78. sub require_configure_ac (;$)
  79. {
  80.   my $res = find_configure_ac (@_);
  81.   fatal "`configure.ac' or `configure.in' is required"
  82.     unless -f $res;
  83.   return $res
  84. }
  85.  
  86. 1;
  87.  
  88. ### Setup "GNU" style for perl-mode and cperl-mode.
  89. ## Local Variables:
  90. ## perl-indent-level: 2
  91. ## perl-continued-statement-offset: 2
  92. ## perl-continued-brace-offset: 0
  93. ## perl-brace-offset: 0
  94. ## perl-brace-imaginary-offset: 0
  95. ## perl-label-offset: -2
  96. ## cperl-indent-level: 2
  97. ## cperl-brace-offset: 0
  98. ## cperl-continued-brace-offset: 0
  99. ## cperl-label-offset: -2
  100. ## cperl-extra-newline-before-brace: t
  101. ## cperl-merge-trailing-else: nil
  102. ## cperl-continued-statement-offset: 2
  103. ## End:
  104.